﻿Imports NewHeaderSystems.Archive.Engine

Public Class ConfirmViewer

    Private Sub CloseWindow(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click, btnCancel.Click
        Me.Close()
    End Sub

    Public Sub LoadConfirm(ByVal confirmID As Integer)
        Dim confirmCreator As New ConfirmRenderer
        txtConfirmView.Text = confirmCreator.Render(confirmID)
        txtConfirmView.SelectionStart = 0
    End Sub

End Class